home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ MMQS 1.xpl < prev    next >
Text File  |  2002-10-31  |  2KB  |  62 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="2"
  4. "UIPATH"="Network\Message Queue Server"
  5. "NAME"="Message Queue Server Options"
  6. "OSVERSION"="0101011"
  7. "VERSION"="1.06"
  8. "LANGUAGE"="VBScript"
  9. "WARNING"="1"
  10. "TEXT 1"="Connect to Information Store (IS) on startup"
  11. "TEXT 2"="Try to bundle small TCP/IP packets"
  12. "DESCRIPTION 1"="Option 1 controls if MMQS should automatically connect to it's Information Store if the computer is started. If the computer is connected using RAS, this can lead to a dial access as soon as the computer is started."
  13. "DESCRIPTION 2"="Options 2 controls if MMQS should wait when a small package is about to be send for some time if another package is about to be send so both can be bundled. If the option is deactivated, MMQS does not wait which results in faster transport but also higher network utilization."
  14. "DESCRIPTION 3"="NOTE: These settings require NT SP6, W2K or XP to work."
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "AUTHOR"="Xteq Systems"
  17. "CONTACTURL"="http://www.xteq.com"
  18. "COMMENT 1"=" "
  19.  
  20. sP="HKLM\Software\Microsoft\MSMQ\Parameters\"
  21. sV1="DeferredInit"
  22. sV2="TcpNoDelay"
  23. SUB Plugin_Initialize
  24.  if RegPathExists(sP) then
  25.     i=RegReadValue(sP & sV1)
  26.     if IsEmpty(i)=true or i=0 then SetUiElement 1,true
  27.  
  28.     i=RegReadValue(sP & sV2)
  29.     if IsEmpty(i)=true or i=0 then SetUiElement 2,true
  30.     
  31.  else
  32.     Disable
  33.  end if
  34. END SUB
  35.  
  36. 'Called when the Plugin should validate the Data the user has entered
  37. SUB Plugin_CheckData(ElementIndex)
  38. END SUB
  39.  
  40. 'Called when the Plugin should apply the changes
  41. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  42.   b=GetUIElement(1)
  43.   if b=true then
  44.      Call RegWriteValue(sp & sv1,0,2)
  45.   else
  46.      Call RegWriteValue(sp & sv1,1,2)
  47.   end if
  48.  
  49.   b=GetUIElement(2)
  50.   if b=true then
  51.      Call RegWriteValue(sp & sv2,0,2)
  52.   else
  53.      Call RegWriteValue(sp & sv2,1,2)
  54.   end if
  55.  
  56.  
  57. END SUB
  58.  
  59. 'Called when the Plugin is about to be removed from memory
  60. SUB Plugin_Terminate
  61. END SUB
  62.